50 SP$=" "
60 FORAS=0TO38:SP$=SP$+" ":NEXT
90 PRINT"[147]":POKE53281,7:POKE53280,6:POKE783,PEEK(783)AND254
100 POKE781,2:POKE782,11:SYS65520:PRINT" BASE CONVERSION "
110 :
120 :
130 IFP=1THEN150
140 REM       FORK=0TO2200:PRINT;:NEXT
150 N$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
160 POKE781,6:POKE782,0:SYS65520
162 FORCL=1TO18:PRINTSP$;:NEXT
170 M=LEN(N$)
180 POKE781,5:POKE782,9:SYS65520
190 PRINT"USE BASE TEN NOTATION"
200 POKE781,8:POKE782,0:SYS65520
210 PRINT"CONVERT FROM"
220 PRINT"BASE ";
230 INPUT"      [157][157][157][157][157][157]";B1$
240 IFB1$=CHR$(.)THEN160
250 IFB1$="0"THEN160
260 REM   TEST BASE NUMBER 1
270 B1=VAL(B1$)
280 IFB1>1 AND B1<37 THEN320
290 POKE781,22:POKE782,1
300 SYS65520:PRINT"BASE 2 THROUGH 36 ONLY.  SELECT AGAIN"
310 GOTO180
320 POKE781,8:POKE782,26:SYS65520:
330 PRINT"CONVERTED TO"
340 POKE781,10:SYS65520:PRINT"BASE ";
350 INPUT"     [157][157][157][157][157]";B2$
360 IFB2$="0"THEN160
370 IFB2$=""THEN160
380 REM   TEST BASE NUMBER 2
390 B2=VAL(B2$)
400 IFB2>1 AND B2<M THEN445
410 POKE781,22:POKE782,1:SYS65520:PRINT"BASE 2 THROUGH 36 ONLY.  SELECT AGAIN"
430 GOTO320
445 REM     INPUT NUMBER
450 POKE781,11:POKE782,1:SYS65520:FORCL=1TO13:PRINTSP$;:NEXT
460 POKE781,12:POKE782,0:SYS65520:PRINT"VALUE IN BASE"B1"TO CONVERT";
470 INPUT"    [157][157][157][157]";S$
475 REM     TEST INPUT
480 L=LEN(S$)
490 IFS$="0"ORS$=""THEN450
500 FORK=1TOL:A$=MID$(S$,K,1)
510 IFA$="."THENPOKE781,12:SYS65520:PRINT"WHOLE NUMBERS ONLY":FORJ=1TO30000:NEXT:GOTO450
530 NEXT
540 Q=0
550 FORK=1TOL
560 FORJ=1TOB1
570 IFMID$(S$,K,1)=MID$(N$,J,1)THENQ=Q+1
580 NEXTJ,K
590 IFL>QTHENGOSUB980:GOTO450
600 REM    FIRST CONVER TO BASE 10
610 Y1=Y1+1
620 POKE781,19:POKE782,10:SYS65520:PRINT"";MG$(Y1)
640 IFY1=10THENY1=0
650 IFL<=7THEN670
660 POKE781,23:POKE782,2:SYS65520:PRINT"ANSWER MAY BE WRONG, NUMBER TOO LONG[146]";
670 FORK=1TO500*L:NEXTK
675 REM     THE HEART OF THE PROGRAM
680 D=0
690 FORK=1TOL
700 FORJ=1TOB1
710 IFMID$(N$,J,1)<>MID$(S$,K,1)THEN730
720 D=D+INT(((J-1)*(B1^(L-K))+.5))
730 NEXTJ,K
750 REM   CONVERT FOR OUTPUT
760 A$=" "
770 X=INT(((D/B2)-INT(D/B2))*B2+1.5)
780 A$=MID$(N$,X,1)+A$
790 D=INT(D/B2)
800 IFD>0THEN770
810 REM    PRINT RESULTS
820 POKE781,15:POKE782,0:SYS65520:PRINTS$;" ";:POKE781,15:POKE782,30:SYS65520
825 PRINT"BASE ";B1
830 PRINTA$;" ":POKE781,16:POKE782,30:SYS65520:PRINT"BASE ";B2
840 PRINT:POKE781,18:POKE782,0:SYS65520
850 PRINT"<RETURN> TO CONTINUE":PRINT"<C> TO CHANGE BASE":PRINT"<X> TO EXIT"
860 POKE198,0:WAIT198,1:GETQ$:IFQ$<>CHR$(13) AND Q$<>"C" AND Q$<>"X"THEN860
870 IF Q$=CHR$(13)THEN450
880 IF Q$="X"THEN920
890 P=1:GOTO90
910 STOP   REM   THE END
920 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN":POKE631,13:POKE632,13
930 POKE198,2:END
980 POKE781,12:SYS65520:FORCL=1TO6:PRINTSP$;:NEXT
990 POKE783,PEEK(783)AND254:POKE781,12:POKE782,12:SYS65520:PRINT"INPROPER INPUT[146]"
1000 FORK=1TO2000:NEXT:RETURN
2000 REM          WRITTEN
2010 REM             BY
2020 REM        BOB SCOFIELD
2030 REM